//    
Screen.Cursor := crHourGlass;

//     
Screen.Cursor := crDefault;